<%Dim connSet conn = Server.CreateObject("ADODB.CONNECTION")db = "Provider=Microsoft.ACE.OLEDB.12.0;data source="&Server.MapPath("data.accdb")'response.write db'response.endconn.Open db%>